home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / AppleScript / Additions / GTQ Library 1.2 / Sample Scripts / Play Movie(s) < prev    next >
Encoding:
Text File  |  1994-05-03  |  229 b   |  12 lines  |  [TEXT/ToyS]
  1. on open (f)
  2.     set f to f as list
  3.     repeat with i in f
  4.         play movie in i
  5.     end repeat
  6. end open
  7.  
  8. on run
  9.     speak "Please choose a movie file to play." pitch 41
  10.     choose file with prompt "Choose a movie file to play:"
  11.     open result
  12. end run